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Inl*rsysU«s FDC II bootstrap proSrsfl ASMBLE '»^3b Pase 1 

; Int&rsvstens FDC I! bootstrap prosratt 

? Written bv Robert Bedichek February 1980 

OOOC if C 

This proaratt resides in a IK nonvolitile weHorv that starts at 
address zero. It reads a variable nunber of sectors froM the 
first two cylinders of drive zero* surface zero. T^le first 
eiaht bvtes of the first sector of the outermost cylinder aives 
inforfiation about how to load the data. The diskette can be 
recorded in either FM (sinsile density) or MFM (double density). 
Sector sizes ranain^ fro« 128 bvtes/sector to 8196 bvtes/sector 
are acconnodated. After the data is loaded^ control is passed 
to an address specified in the first eiaht bvtes of the first 
sector. The wertorv in which this pro^ran resides is switched 
off before control is passed. 

Note that this pro^ran uses the end of read/ write neHorv for stack space. 
So» the load paraweters should not be set so that the transfer over-writes 
this part of weftorv. 

An area yorkLen bvtes fro« the end of neHorv is used to read in the first 
sector for the load paraneters. This ftav be over-written bv the data loaded. 
Bootstrap register allocation and conventions 

Register I Contents 



A 1 Scratch resister 

B ! Starting sector nuAber for next read operation 

C 1 Ending 

D I Instruction lensth (looked at bv StartIO) 

E 1 Intruction opcode ( " " " " ) 

H 1 F>irst arSuMent for instruction (looked at bv startio) 

L ! Second •• « " ^ .. « .. ..« j 

FLAGS ! Scratch 

( alternate set ; 

A' ! N - bvtes per sector (0:128 1:256 2:512 3:1024 4:2048 ., ) 

B' i Starting sector nuwber for cylinder 1 

C I Endina 

B' 1 Scratch 

E' 1 

HL' I Points to list of load paraweters. 

FLAGS' 1 Carry = 1 <==) HFM Carrv = (==) FM 

IX I Start insl address for booted proaraw 

lY ! Not used 

The load paraMters are on drive zeror side zero» cylinder zero in the 
first eiaht bvtes of the first sector. Their fornat: 

I . ^^1 . ! . I . l__ unused ... 

Word 1.2 2 
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OOftC 

OOBO 
OOBl 

O0B2 

OOhi 

00B8 

OOBA 

OOBC 

OOBE 

OOFF 

OOOA 



Address to start loading at. 
Address to pass control tc after data is loaded. 
Start and end sectors of seSnent to be loaded froft cylinder 0, 
{ Of ) Means don't load anything frow cylinder 0. 
Start and end sectors of segnent to be loaded frort cylinder 1. 
( 0» ) neans don't load anvthina frow cylinder 1. 



00 E4 03 FA 02 26 1 2£ 

This will load sectors 2 throuah 26 froM cylinder and then sectors 
1 through 2i fro« cylinder 1. The data will be load contiguous Iv starting 
at location E400 and execution will beflin at FA03. 

endif 



Word 


0! 


Word 


i: 


Word 


2: 


Word 


3: 


Exaftple: 



f Port addresses 
DBase e«tu OBOH 



DStat e*iu 
DData e<<u 



DRead 

zmoh 

HiDMA 
MiBHA 
LoDHA 



e«iu 
e«iu 

eciu 
e««u 

eciu 



DsROM e*w 
Lights eciu 
Step e*!u 



DBase+0 
DBaseil 



» FBC II occupies block U bvtes Ions:, 

J FBC II status register. 
t Cottwand port address. 



DBase+2 t out DRead sets controller for read operation, 

BBase+6 » Writing to this port will enable the ROM. 

DBase+8 ? Hish byte of D«A address register. 

DBase+10 ? Hiddle bvte (AIS - A8) of DHA address resi. 

BBase+12 ? Low bvte of DHA address. 

DBase+H i Writing to this port turns off the ROh. 
OFFH f Front panel proaranned output lishts. 
JO » Hilliseconds per step. 



U 



2000 
2100 

0000*0000 

0000 F3 

0001 D3 B2 



MStart equ 
WorkLen e«iu 

Start ors 
. di 

out 



8192 I Address to start testing Meworv at. 
8192+256 ; Must be a Multiple of 25d 



f No funnv business. 
DRead i Set up the DHA controller for read ins. 



; Non-destructivelv test wertory to find the end of it (to find a scratch 
t area to use for reading the load paraH^ters. 

rt t Address to start testing at. 



f Store coNPlfiMent, 

; Did the location actually get co«ple«ented 
EndHit t Branch if we Just ran into a non-RAM area. 



0003 21 


2000 


iKi 


hih 


0006 7E 




HewLp Hov 


3rn 


0007 2F 




CK, 




0008 77 




rtOV 


nra 


0009 BE 




cm 


« 


OOOA 20 07 


Jrns 


End! 


OOOC 2F 




cnz 




OOOD 77 




HOV 


nrei 


OOOE 23 




in>{ 


h 


OOOF 7C 




rtOV 


arh 


0010 B5 




ora 


1 



; Restore the bvte to its original value. 
r Have we viust overflowed ? 



\J 
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0011 20 F3 Jrns HertU 

? HI points to one past the last Sood RAH location. 

0013 F9 EndHit sphi ? So we can do procedure call*. 

0014 7C MOV a»h 

0015 U 21 suj UorkLeij/256 

0017 67 rtov hja ? HL points to an area WorkLen Ions. 

OOIB D9 ex;; 

0019 08 exaf 

001 A AF xra s 

OOIB 08 exaf 

; Initialize NEC 765 

OOIC 11 0303 Ixi d»303H » 3 bvte instruction* opcode = specify 

OOIF 21 6EFE Ixi hrl6-Step*U+OEH»256+0FEH » StepinS rate and other Junk. 

0022 CD OOCl call Start ID » Do it. 

; Sense Drive zero status » wait until drive is readv 

0025 11 0204 RdvUsit b<i d»200H+4 r2 bvte instpuctionf opcode^sense drive status 

0028 21 0000 Ixi hiO ? Drive zero » head zero. 

002B CD OOCl call StartIO r Do it. 

002E CD 01 ei call WaitStat 

0031 tiB Bl in DData i retreive Status Register 3 

0033 £6 20 ani 20h » check readv bit 

0035 28 EE Jrz RdvWait i repeat if drive not readv 



t Recalibrate Drive zero. 

0037 11 0207 Ixi d»200H+7 f 2 bvte instructionr opcode = recalibrate 

0C3A 26 00 ftvi HrO » Drive zeror head zero. 

003C CD OOCl call StartIO 

003F CD 0131 call Senint J Sense interrupt status to nake NEC happv. 

? Alternately trv reading the header at single and double density. 

0042 11 020A RHLP bd dt200H+0AK J 2 bvte instruction? opcode = read header 

0045 21 0000 Ixi h»0 J Drive zero. 

0046 CD OOCl call StartIO 

O04B CD OUC call Result 

004E 28 05 Jrr Success » Branch if the read was good. 

? CciMPiertent the C to switch the density setting. 

0050 Oe eKaf 

0051 3F CMC 

0052 08 exal 

0053 18 ED j«pr RHLP 



T A' now has the ridht N and C has the right density. 
'f Now we can load the data 

t Load the DMA registers with the address of the work area. 

0055 D9 Success exx 

0056 AF xra a 

0057 D3 B8 out HiDMA t A23 - A16 are zero.' 
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^W9 7C NOV arh ? Hiih bvte of work arM. 

0C5A I«3 BA out «iDMA 

0<>5C 7D rtov a»l » Low bvte of work area address. 

005II D3 BC out LoDMA 

005F D9 exx 

f Read sector 1 on side zero* drive zeror head zeror cylinder zero 

5 to aet the load infornation. 

0060 11 0406 l;<i df400H+6 J 9 bvte instruction» opcode = read. 

0063 21 0000 Ixi h»0 ; head 0» drive 0» cylinder 

006i 01 0101 Ixi brlOih J Read froH sector 1 to sector 1. 

0069 CD OOCl call StartlO 

006C Cn 01 4C call Result 

006F C2 0000 Jnz Start ? restart process if error 

; Read the data 

f Load the DMA registers with the load address. 

0072 Ii9 exi- 

0073 7E MOV am i Low bvte of load address, 

0074 D3 BC out LoDMA 

0076 23 inx h 

0077 7£ flov a»tt 

0078 D3 BA out HiDMA 

f Put next word (the start address) in IX. 

007A 23 inj< h 

007B 5E MOV e»ft 

007C 23 inx h 

007H 56 m\' dftt 

007E D5 push d f Get start address into IX bv pushing it 

007F r»B El POP ix J onto the stack fro« D£ and popind frow IX. 

; Get starting and endinS sector nu«bers 

0081 23 in>; h 

0082 7E ftov ayft ; Starting sector nu«ber for track zero. 

0083 D9 ex;-; 

0084 47 ftov b>a 

0085 Ir9 e;o; 

0086 23 inx h 
00B7 7E no\' SrM 
0068 D9 exx 

008S' 4F nov oa 

008A D9 exx 

fNow £!et starting and endins sector numbers for cvinder one. 

008B 23 inx h 

008C 46 NOV b>ft 

008II 23 inx h 

OOBE 4E NOV Cfft 

008F D9 exx 

0090 21 0000 Ixi hrO V Start on drive zero» cylinder zero. 

0093 11 0406 RdNext Ixi df400H+6 f 9 bvte instVuction^ opcode = read. 
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IntersvsteMS FDC 


009A 


CD OOCl 


0099 CD 014C 


009C C2 <mo 


¥)^ ^ 


mi 7f 


OOAl 


F£ 01' 


00A3 CA 0194 


O0A6 


11 030F 


00A9 CD OOCl 


OOAC 


CB 0131 


OOAF 


D9 


OOBO C5 


OOBl 


D9 


00&2 


CI 


O0B3 


78 


0OB4 FE OC 


OOB^ 


CA 0194 


0OH9 


79 


OOBA 


FE 00 


OOBC CA 0194 


OOBF 


IB D2 



II bootstrap proSrafi 

call StartIO 
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» Read a cylinder. 



call 


Result 


JlJZ 


Start 


inr* 


1 


pm 


S^fl 


cpi 


2 


Jz 


BveBve 



; restart process if error 
» cAiii<i^ !* cviinder + I 

\ Are we done ? 



J 2 bvte instruction* opcode = seek 



r Hake NEC happy. 



» Seet: to cylinder one. 

Ixi d»300H+OFH 

call StartIO 

call Senint 
; Put cylinder I's start and end sectors in B and C. 

exx 

Push b 

exx 

POP b 
j Check if either sector specification for track two is 
? If 50> we are done 

MOV 3»b 

cpi C 

jz BveBye 

rtov a » c 

cpi 

Jz BveBve 

jftpr RdMext 

? StartIO loads up the NEC 765' s registers with bM,es frow t^le 2-80's 
• registers. If the carry is set? the operation will be done m MFH. 
; Registers A and D are trashed. 



O 



OOCl CD one 


St 


artlO 


call 


UaitCoM 


0OC4 06 






exaf 




O0C5 30 02 






Jrnc 


FM 


00C7 CB rz 






bset 


6re 


O0C9 08 


FM 




exaf 




OOCA 7B 






rtOV 


aie 


OOCB D3 Bl 






out 


DData 


OOCP D3 FF 






out 


Lights 




J 


Check 


to set 


* if this ] 


OOCr 15 






dcr 


d 


OODO C8 






rz 






• 


Load 


first 


arsiunent 


OODl CB 01 IC 






call 


Wait Com 


001(4 7C 






ttOV 


afh 


00D5 D3 Bl 






out 


DData 


00D7 15 






dcr 


d 


O0II8 C8 






rz 





; Branch if we are doinS instrucion in FH, 
I Turn on HFM bit. 



J Open wide 765. 
! Display opcode on front panel lishta. 



? Load second arslu«ent. 
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00119 CD one 

OODC 7D 
OODP 53 hi 

OODF 15 
OOEO C& 



call 

nov 

out 

dcr 

rr 



WaitCon 

atl 

Dliata 



u 



ooEi CD one 

00E4 AF 
OOK D3 Bl 



f Load head nuMber - always zero, 
call UaitCoft 
xra a 
out DData 



» Load Btartina sector nunber. 
00E:7 CD one call iJaitCoft 

OOB 78 MOV afb 

OOCP 113 m out DData 



ooED CB one 

OOFO 08 

oon iQ ti 

O0F3 08 



? Load N 



call 

exaf 

out 

exaf 



UaitCoh 
DData 



00F4 CD one 

00F7 79' 
O0F6 D3II1 



ooFA CD one 
ooFii oe 

OOFE F5 
OOFf U OiBC 

0102 83 

0103 5F 
om Fl 

0105 08 

0106 lA 

0107 D3 Bl 



0109 CI' one 

010c 3E FF 
01 OE 08 
OlOF ^"j 
one B7 
0111 20 04 

0113 08 

0114 3E 30 
011^. 08 

0117 Fl 

0118 08 
Oil? D3 Bl 
0116 €9 



t Load endinf sector nuMber, 
call WaitCon 
ttov a»c 
out DData 

t Load dap length 



\J 



NZero 



call 


UaitCoft 


eu-af 




push 


PSU 


Ixi 


CitGPLTAB 


add 


e 


HOU 


EfA 


POP 


PSW 


exaf 




Idax 


d 


out 


DData 


lata transfer lens 


call 


UaitCott 


«vi 


atOffh 


eicaf 




push 


PSW 


ora 


a 


Jrns 


NZero 


exaf 




«vi 


A»80H 


exaf 




POP 


PSW 


exaf 




out 


DData 


ret 





J I know that GPLTAB does not span a 256 bvte boundrv 



f A := GPLTAB< N ) 



; Is N = 
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one F5 
OUD C5 
OllE Qi U 
O120 DB BO 
0122 U CO 
0124 FE 80 
0126 28 Oi 
0128 10 F6 



012A BE Bl 
012C 18 FO 

012E CI 
012F Fi 
O130 C9 



f «aitCort waits for the data reaister in the NEC 765 to be readv for 
t loidind. Afffrcts no registers. 



WaitCoM push 
push 
TF' «vi 

UaitLp in 
ani 
cpi 
Jrr 
dJrtz 



PSU 

b 

B»20 
DStat 
OCOH 
060H 
OKNow 
UaitLp 



J Retrv count for loadins cownand resister. 

f Just look at the top two bit of the status reSister 



t Tine out - read the data port to trv to renedv thje problew. 
in Dliata 
jMPr 7P 



OKNow POP 

POP 

ret 



P5U 



5 Read the interrupt status bv issuing a sense interrupt status instruct i or,, 
? This is nandatorv after a seek or recalibrate. 



O 



0131 11 0108 


Senint 


ha 


d»100H+8 


0134 cn OOCl 




call 


Start 10 


0137 06 XA 




HVi 


br20 


0139 DB BO 


RO 


in 


DStat 


om u CO 




ani 


OcOh 


013D FE CO 




cpi 


OcOh 


013r 20 02 




Jrns 


NotVet 


0141 DB Bl 




in 


DBata 


0143 10 F4 


NotYet 


djnz 


RO 


0145 DB BO 




in 


DStat 


0147 Z6 01 




ani 


1 


014? 20 E6 




Jrnz 


Senint 



f 1 byte instruct! on t op'code - sense int. 
J A fine nunber. 



f Dump it. 



; Look at the FDC busv bit; 



014B 



ret 



014C E5 



014D cn oiej 

0150 DB Bl 



' Result is called to perforM the Result Phase of tne NEC 7i5'5 operation- 
f sequence. Seven status bvtes are read fron the 765. A' is set to 
' N (tr»e last bvte read)* which gives the nunber of bvtes/sector 

Result push h 

; STO reads the first status bvte in the result phase. A (> <==> error 

call UaitStat 
in DData 



O 



0152 El 18 
0154 A7 



0155 CD 0181 
0158 DB Bl 



ani 18h 
ttov hrs 



f Look at fault and not readv bits. 



T Read second status bvte'( STl ). 
call hiaitStat 
in DBata 
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^15^ ^^ 35 ani 35H ? Look at CRCt Over Runf Hissins Header & secu-»r bits. i | 

015C S4 era h ^^ 

015I< 6/ nov h»a 

? Read the third status bvte (ST2) 

OlSECItOlBl call WiitStat 

OUl DB Bl in DData 

0U3 Ei 31 ani 31h ? CftC error» wrona cvlindert nissins address «ark. 

0165 B4 ora h 

016^ 67 Hov hfa 

? Read all those du«b bytes that vou Set at the end. 

0U7 CD 0181 call WaitStat 

016A DB Bl in DData ? Cylinder 

OUC CIi 0181 call WaitStat 

016P OB Bl in DData r Head nurtber (0.,1) 

0171 CD 0183 call UaitStat 

017^ BB Bl m DData 5 Se-itor nuwber. 

0176 CD 0181 call WaitStat 

0179 08 exaf 

017A IiB Bl in DData » N - favtes/sector 

017C 08 exaf 

01711 7C ftov arh i Get error flag. 

^^^^ 57 <:'ra a f Set 2 to 1 if error occurred. . \ 

017F El POF h ^*^ 

0180 C9 ret 

? WaitStat returns when the status register is ready to be read. 

! R'e2i5ter A and the flags are burned. 





WaitStat 






0181 C5 


FUSh 


b 




0182 DB BO 


UtLF in 


DStat 




0184 £b CO 


sni 


OCOH 


t Look at top two bits of the status register. 


018£- FE CO 


CP3 


OCOH 




0188 20 F8 


Jrnz 


WtLp 




OIBA CI 


POF 


b 




018B C9 


ret 







5 Gap length table - indexed bv N 
018C 07 0£ IB 35 GFITAB DB 7Tl4f27f53 

■ Tne following code is eK'ecuted after the date has been loaded 
; fro« disk. It turns off the ROM and then executes a pri;^ 
f instruction, 
f P5« bv code at the SKIP label. 

0190 D3 BE instr out DsROM 
0192 DD £9 Fcix 

0004 instrl e«tu l-mstr 

BveBve 
0194 21 FFF6 bd h»"-10 » Space for instructions below the stack. 
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0197 39 


dad 


SF 


0198 E5 


push 


h 


0199 Eh 


)<Ch& 




019A 21 0190 


Ui 


hrinstr 


019D 01 000^ 


'iKi 


bfinstrl 


OlAO ED BO 


Idir 




01A2 El 


POP 


h 


01ft3 E9 


pchl 





5 First bvte of instructions to «ove to RAH. 
» Lensth of instructions. 



; Branch to intructions in RAM. 



0000 



end 



Start 
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errors. 3£; svHbols aenerat^d. Space for 5515 nore svdbols. 

S 01A4 . 

BYEJYE 0194 W 

DBASE BO 

UDATA Bl 

DREAD B2 

DSRDM BE 

DSTAT BO 

ENDHIT 13 

Emn U 

FH QP 

GPLTAB 018C 
HIDMA Be 
INSTR 0190 
INSTRL 04 
LIGHTS FF 
LODHA BC 
ME«LP 06 
«ni«A BA 
MSTART 2000 
NOTYET 0143 
nmO 0li7 
pKNOy 01 2E 
ftDNEXT 93 
RIiYUAI 25 
RESULT OlAC 

RHLF- 42 . 

RO 0139 \^ 

SENIHT 0131 
STAfi'T 00 
START! CI 
STEP OA 

SUCCES 55 

IP OllE ' 

UAITCO 01 IC 
UAITLP 0120 
yAITST 0181 
UORKLE 2100 
yJLF' 0182 



